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MISCEL L ANEOUS NOTES 

Thi^ issue will try to clear up some of the mystery surroun¬ 
ding the Sorcerer*s serial port. Hopefully this will get those 
of you with serial printers and word processing pars into busi¬ 
ness. 

When I started this newsletter in May of ’79, there seemed 
to he quite a bit of interest in starting a cassette based pro¬ 
gram exchange. Since setting things up, the situation has ap¬ 
parently changed - very few of you are sending in programs, or 
requesting them either, for that matter. I hope this doesn't 
mean that all those Sorcerers are not being used. Let me re- 
itterate that we are interested in any type of program. if 
you have a use for a program you wrote, then chances are pretty 
good that someone else does as well. Whatever you write, send 
a copy along to Ralph Ruh, 623 Mediil Ave,, Lancaster, Ohio, 

43130, and mention what program you would like to receive in 
exchange. The exchange benefits from your program, and you 
benefit by getting a free program. That’s hard to beat, with 
commercial programs going for $7. By the way, the more docu¬ 
mentation you provide in your program (REM statements), the 
easier it is for someone else to modify your program to suit 
their exact needs. 

The 48 K Sorcerers are now on the market. John Link, of 
Fremont, California, decided his was running a bit hot after 
five or six hours of continuous use. He cites no problems, 
but installed a small blower for added protection. From John: 

"The installation was easy, required no modification of existing 
hardware and provides quiet and adequate cooling. Using a small 
homemade tab made from a piece of fiberglass printed circuit 
board material, I was able to mount the blower to the top screw 
holding the line filter to the power transformer on the keyboard 
side. This places the blower just inside teh side vent port on 
the Sorcerer’s left side- Air is drawn into the port- The blower 
I used cost only $1.39! (source: Technical Electronics Corp.. 

P.O. Box 2361 Woburn, MA, 01888). I connected the blower to the 
AC line at the input side of the line filter." 

Dan Fabiano of Wayne, Pennsylvania, wrote to tell me about 
repair times. The turnaround time is excellent, only 48 hours. 

Send units t o be repaired to the attention of J.B. Wells at Exidy. 

The Sorcerer’s Apprentice is published approximately 8 times a year 
by The Sorcerer User’s Group, c/o Dave Bristor, 1530 Washtenaw, 

Ann Arbor, MI, 48104. Meetings are held the second Thursday of 
every month at Newman Computer Exchange here in Ann Arbor. For 
a free copy of this newsletter and more info, send a self-addressed 
stamped envelope. Donations of any kind are greatly appreciated. 


THE WORD PROCESSING CORNER 
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Well, I'm still around. I'm not sure if that's good or 

bad. 

Today, I thought I would concentrate on the hardware we 
are using, especially the printers. I mention this because I 
am hearing about a lot of the problems being encountered in 
this area and perhaps it might help if I pass along what does 
work with the EXWP Pac. — 

We are using two printers: for high speed drafts, we have 
the Comprint 912, equipped with a parallel board that runs with 
the Exidy. For slower speed, typewriter quality, we have an 
IBM Selectrlc II, equipped with the Escon interface unit. 

The two printers serve two totally different functions but 
each does it very well. The Comprint runs at very high speed 
and prints a fully formed dot matrix character. It handles the 
full ASCII set and has lower case descenders. The printout is 
on an aluminized paper which photocopies very well. Its real 
virtue, though, is speed, I once timed it at 450 lines in 
three minutes flat. We use it around the office for drafts of 
long documents, which takes the strain off the typewriter. In¬ 
cidentally, the aluminized paper makes excellent photocopies. 
The machine sells for about $660.00. 

The F.scon interface is easy to work with and has turned 
the Selectrlc into an excellent typewriter printer. (Escon has 
obtained a letter from IBM which states that the installation 
will not void service agreements or new machine warranties.) 

The Escon handles the full ASCII set, also, including 
backspacing and tabbing. (The PROM for ours does not include 
greater than/less than signs—it prints them as parentheses; 
otherwise, you get the full ASCII set for BASIC listings. 

Other PROM's are available.) 

It runs slowly, about 12.5 characters per second. That's 
fast enough for us if we have the Comprint to back us up on 
drafts. We have the Selectrlc equipped with a sound cover and 
a pin-feed platen for continuous feeding of paper. The inter¬ 
face sells for approximately $600.00 depending on installation 
and cable length. 

Both units run on the parallel port of the Exidy and both 
run well in that mode. 

You can obtain more information by writing Computer Print¬ 
ers, International, 340 E. Middlefield Road, Mountain View, 
California, 94043 or to Escon, 171 Mayhew Ray, Suite 204, 
Pleasant Hill, California, 94523. 

See you next month! 


l 
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"DATABASE” 

1 do not normally review software for two reasons: one, we do 
not use our Exidy for much besides word processing and two, be¬ 
cause I am not that much of an expert at software. However, I 
have volunteered to do a review of "Database" (R G R Software 
Company, 623 Medill Avenue, Lancaster, Ohio, 43130, $11.75, 
post-paid). 

This program is a pleasure. It allows the user to set up ten 
fields of data and, believe it or not, the data can all be 
saved on cassette tape, alpha included. The author of the pro¬ 
gram has apparently solved the problem of cassette data save. 
The program fields will accept up to 255 characters, I am told, 
and just about all the instructions you need are built right 
into the program. The user can create a record, sort records 
alphabetically and numerically, update records, add records, 
insert new records, delete records and so forth. The sort 
feature alone makes the program well worth the money. It will 
also search for a four-number or four-letter string anywhere in 
the data. 

We will be using this program as the basic program for our 
client time-keeping system. Of course, the read and write from 
cassette are slow but it is a lot cheaper than a disk system 
and should work well for anyone with an Exidy. 


ADVERTSCMCNT 


SPEECH RECOGNITION !!! 

Now it Is possible to talk to your Sorcerer and the Sorcerer can talk back to you. How? We 
are Introducing C0GNIV0X, a revolutionary new Speech I/O peripheral for the Exidy Sorcerer 
(with 16K or more memory). C0QNIV0X plugs Into the 1/0 port of your Sorcerer and can recog¬ 
nize or respond with up to 16 words or short phrases of your choice. Recognition rates can 
be as high as 98X. Imagine being able to turn on the lights in the room by saying "lights 
on* In the microphone or order a radio controlled toy car around a course by speaking to It. 
Or the Sorcerer can read Its memory back to you out loud (we provide the software for the 
vocal memory dump) or you con use your Sorcerer as a four function c leu la tor that talks Its 
exults back to you: Or you may enter data while your hands are occupied. The possibilities 
are endless. 

Due to ah engineering breakthrough by YOICETEIC that let us reduce the speech preprocessor to 
a„single chip, our price for CQ6NIY0X Is only $149, the lowest price for speech I/O anywhere. 
S149 (plus 54.50 for ship. & handl,, CA res. please add tax) buys you a C0GNIY0X assembled 
and tested In a superb two-tone cabinet which Includes audio amplifier and speaker for the 
voice response plus a microphone plus two cassettes full of top quality software which In¬ 
clude the voice controlled video games VOICETRAP and YOTHELtO, Demo programs, Music programs 
(yes, C0GNIY0X can be used to generate single voice music and a wide variety of tones and 
sound effects) and a talking calculator program plus a users manual that explains In detail 
how to use C0GHIY0X with the programs provided and how to write your own programs for it. 

For more Information please send u i | 0 g NAME t 

the coupon. Or better yet, send us,' * ezDmzr-—---{ 

an order and add a fantastic new ! 8 § address , 

dimension to your computer. * % I™" “.'.... ; 

LSJLIL: ._.._ 

VOICETEK eo- tn sea, ca mon 


KESTORIGG A BASIC PROGRAM AETKR d 

This 38 byte machine language program will restore a BASIC 
program after you have used the MS’.V command and then had second 
thoughts. The assembly code is given but you can easily key in 
the machine code using the EliTEE command and then have it on 
tape. LOAD at any convenient location after getting out of 
BASIC by BYS (e.g. 1#H), then just GO to the load address (e.g. 
GO 10), The program will then restore your BASIC program, 
return to BASIC automatically and issue a READY. 

R, J, Lomax. 

Ann Arbor, MI 
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SEARCH - program contributed by John Link, Fremont, CA 

This routine can be appended to another BASIC program to 
search that program for any occurrence of a given string and 
indicate in which line(s) that string is found. 

60000 A-469: INPUT "SEARCH F0R**;A$ 

60005 IF A$="LINE 0” THEN 60060 
60010 ST=PEEK(A)+2 56 *PEEK(A+l) 

60015 LN=256*PEEK(A+3)*PEEK(A+2) :A*=A+4 
60020 IF LN=60000 THEN 60090 
60025 FOR X=A TO ST 

60030 IF PEEK(X)=ASC(LEFT$(A$,1)) THEN GOSUB 60040 
60035 NEXT:A=ST:GOTO 60010 
60040 FOR Y=1 TO LEN(A$) 

6004 5 IF PEEK(X-l+Y)<>ASC(MID$(A$, Y,1) ) THEN RETURN 

60050 NEXTsPRINT LN::RETURN 

60055 A$«"":FOR X=473 TO 600 

60060 IF PEEK(X)*0 THEN X=600:GOTO 60010 

60065 A$^A$+CHR$(PEEK(X)):NEXT 

60090 PRINT:INPUT"DELETE SEARCH"?GH$ 

60095 IF LEFT$(GH$,1)« M Y" THEN POKE A-4, 0 
60100 POKE A-3,0 
60105 END 

A oc% <■ 

n UUtfmu (yt>r 

(L2) The function USR(X) - 

<S> 

The function USR allows a BASIC program to call a machine 
language subroutine. The format for the call is: 

LET <variable>*USR(0) 

Here, 0 is used as a dummy argument, and <variabie> is a 
dummy variable. You can use any legal variable as the dummy, 
but remember that its value will change when the USR function 


is called. 


When Standard BASIC first takes control of the Sorcerer, the 
machine code C3 (hexadecimal) is written in memory address 
0103 hex (259 decimal). This is the first byte of a three- 
byte jump instruction. Addresses 0104 and 0105 hex (260 and 
261 decimal) are the other two bytes of the jump instruction 
—you roust load the starting address of your machine language 
subroutine into 0104 and 0105 hex before you call the USR 


function. 


Use the POKE command to load your starting address into 0104 
and 0105 hex. Put the low-order byte into 0104 and the high- 
order byte into 0105. Remember that you must use decimal 
notation with the POKE command. 

Example : -~~~ _ —— 

100 POKE 260,16 puts 10 hex (16 decimal) 

into address 0104 hex 
(260 decimal) 

110 POKE 261,0 

puts 0 into address 0105 
hex (261 decimal) 

200 LET A-USR(O) calls the machine language 

subroutine starting at 
address 0010 hex 

Standard BASIC has its own stack, separate from the Monitor 

stack; the USR subroutine uses the BASIC stack. So long as 

your USR routine leaves the stack unaltered, a 280 RET command 
will return control to BASIC. Addresses 0000 through 00FF hex 

(0 through 255 decimal) are not used by BASIC or the Monitor; 

you can safely use these addresses as scratchpad RAM for 

your subroutine, or to store the subroutine. 

The simplest way to pass parameters between a BASIC pro¬ 
gram and a USR subroutine is by means of PEEK and POKE com¬ 
mands- Use POKE to put a decimal number into a decimal 
address? your Z80 subroutine can then pick the number (in 
hexadecimal) out of that address (also hexadecimal). 

Use PEEK to read a number into your BASIC program, after 
it has been deposited by your USR subroutine. 

For more information on PEEK and POKE, see Appendix B. 



Marty Fllcfctnrer 

1205 Yale Avenue 
Salinate. 67^*01 



When using only one FOR-"EXT loop, the variable may be left off 
of the NEXT* This may be done when using nested loops, but I 
have found that doing this tends to confuse the Sorcerer. Also, 
when tiro or more loops are nested inside one another, some or 
all of the loops can be terminated in one statement* For example, 

instead of using 50 NEXT 1 
60 NEXT J 

one may use 50 NEXT I,J 

Some Sorcerer owners have been aefcing how to clear the 
screen in a BASIC program. The best way is by using the command 

10 PRINT CHR|(12); 


where 12 is the ASCII code for CLEAR (on the Sorcerer at least). 
Some other useful control characters are 1 ? (home up cursor), 1 
(move cursor left), 19 (right), 23 (up), 26 (down). You may have 
noticed that when clearing the screen with the aforementioned 
command some of the definable characters were changed. To avoid 
this I have written a small program which, when called by using 
the tJSR ( 0 ) statement, clears the screen fast without altering 
any characters. To call this program, put oA decimal into ad¬ 
dress 260. Also, put 0 into 26l. 

Have you ever written a BASIC program having several DATA 
tables and wanted to start REAPing the values out of a DATA 
statement other than the first? I have encountered this problem 
many times. Once, just for fun, I tried using the command 

320 RESTORE 400 


where 400 was the line number of the BATA statement that I wanted 


to READ from. It works, but unfortunately none of the re number- 
programs that I have seen will renumber any statements of this* 


ng 


Co *« 




VARI - program contributed by Richard Legualt, River Rouge, MI 

This handy program can be appended to a program you are 
working on and display a complete list of variables used. Type 
in the program from the listing (or better yet, get a copy from 
the exchange) and append it to another program. Key "RUN 50000" 
and select an option from the menu, "A** peeks through the user 
program and prints a list of variables used. ”$*' allows the 
operator to select a number of variables to be searched for. "D" 

is a detailed printout of all the variables in each line, those 
without are skipped. 

A few days after I obtained some hard-copy of this program 
Richard sent me an addendum. Change/add lines as follows: 

50295 IF V$(I)=SV$(J) THEN CC~1: DF-l : PRINT V$(I):’ 8 " r 

'''-added 

50315 should be changed to IF DF=0 THEN PRINT "NONE FOUND" 

50422 should be added IF D=0 THEN 50435 

I », 4 1 e* $ 







PROGRAM REVIEWS 


The Exidy Monitor - part II - by Dave Bristor 

Last time,I gave some introduction as to why anyone would 
want to do anything in machine language and also some references 
to look into. I hope you did take a look at at least one of them; 
it will be helpful. 

Recall the purpose of our machine language subroutine: it 
must scan the keyboard and return the value of the key pressed, 
or return a null if no key is down. There is a similar routine 
in the monitor, the KEYBRD routine at E018 (hex). When called, 
KEYBRD returns the value of the key in the down position in the 
2-80‘s "A" register. Since BASIC cannot access the A register, 
after a call to KEYBRD we can store it away. The following 
routine accomplishes this: 


ADDR 

OBCODE 

LAB£L 

SOURCE 

0000 

CD 18 E0 

START 

CALL KEYBRD 

0003 

32 0A 00 


LD (VALUE) 

0006 

C9 


RET 

0007 


VALUE 

DEFS 01 


A little explanation is in order. The first column is the address 
of a byte of memory. Each byte in memory has a unique address, 
ranging from 0 to 65535 (0 to FFFF hex). Thus the machine lan¬ 
guage subroutine starts at 0. This is called its entry point. 

The second field is labeled QBCQDE , for object code. Object 
<5ode is the language that the Z-80 processor understands. In 
this case, CD tells the computer to "call' 1 (as in GOSUB) the 
subroutine whose address is E018 (note! that the digits are 
reversed!). This happens to be the address of the keyboard 
routine mentioned earlier. The LABEL field is of little 
importance as it concerns this statement, but remember that we 
have to store that value from the A register somewhere. VALUE, 
the second label, is the address of the location in memory where 
it will be put. The last field, SOURCE , is assembly language. 

If we had the development pac, we would give it as input the LABEL 
and SOURCE columns and get back the other two fields. Since I'm 
assuming you don't have a development pac, we will have to do our 
own assembly. This is called hand coding. As I said earlier, 
familiarity with the Z-80‘s instruction set is imperative here, 
because how do you expect to be able to "talk" to it unless you 
speak its language? The way to write a program is to figure out 
what you need done, write down (in assembly language) all the 
source code and labels you need, then translate to machine code 
by hand. This involves looking up a particular instructions op¬ 
code, and writing it down in the OBCOD column along with any 
necessary operands. There is no opcode for the DEFS mnemonic 
(things in the first half of the SOURCE column are called mnemonics, 
the second half has operands) because we are not interested in what 
starts out at VALUE, only at what is there after a call to KEYBRD. 

I'm going to stop here with this part. Next issue will detail 
the use of the monitor in entering, looking at, and executing ma¬ 
chine language subroutines. In the meantime, try adding this twist 
to the above routine: instead of returning a null, make the pro¬ 
gram (machine language) stay in a loop until a key is pressed. (Hint- 
use the Z flag status, and see the Exidy manuals)* 


Staley's Sorcerer Software (22 Stayman Court, Lafayette, IN, 

47905) has quite a selection of programs to offer. I have Touch¬ 
down, Black jack,U.S. Map, and Function Plot. 

Touchdown is a great game. Living in a fraternity, this 
one got lots of use during the football season, and was received 
very well. The program is strong on graphics, and plays a good 
game of football. The human player can play against the Sorcerers, 
or against another human opponent. Give your friends a chance at 
this one, and it may be several hours before you can get back to 
your computer. Note: there is a bug in the copy of the program I 
have that eventually may cause the computer to crash. For some 
reason the ball will sometimes be spotted off the field. Play 
continues, off the field, until the ball starts munching through 
other memory off the screen and crashes the computer. (Don't 
know why yet, but some people have more fun doing this than con¬ 
tinuing the game.) 

Blackjack is a superb graphics program. The cards are drawn 
out quite rapidly on the screen. Several players are allowed, 
making it a fun game to play at parties. Betting is included, just 
like at a real casino. The graphics alone are worth the price 
if you are planning on any other card games, 

U.S. Map is another very graphic program. It can draw the 
outline of the United States, and then draw the outline of any 
state in its proper position. Alaska and Hawaii are included, 
but drawn outside the U.S., of course. The program can be used 
as a game, a quiz of state capitals, as well. As such, it can 
be used to teach children the locations of our states and their 
capitals. (Children in this sense can apply to anyone using the 
computer, I learned some things I didn't know just testing the 
program out). 

If you ever need a plot of anything, and need it now, then 
I just hope you have Function Plot on hand. This program can 
plot any two-dimensional function, whether it be polar or in 
terms of x and y. The function doesn't even have to be entered 
in in BASIC! The running program accepts your function as input, 
then proceeds to translate it into BASIC and evaluate it over 
the range of x's you have specified. The scaling of the y axis 
can be manual or automatic. This marvelous program has excel¬ 
lent plotting resolution and even allows two functions to be 
plotted simultaneously. 

All of the above programs may be ordered directly. Touchdown 
is available for $14.95, others cost $9.95. 

Attention SORCERER Users* 

If you're like nost SORCERER users you're probably havin'! 
fits trying to interface to a serial line printer. If this i< 
your problee then we have just the thing for you! The SORCEfii 
PARALELL TO SERIAL INTERFACE is a totally self contained urn* 
which nak.es any RS232 or 20nA printer look, to the SORCERER 
like a Centronics paralell line printer. Uith this unit you 
can throw away your delay loops and I/O drivers because you 
can use the line printer I/O drivers that are already in youi 
SORCERER. It also has X-0N.X-0FF and DATA TERMINAL READY har.: 
shaking. This unit will run at any of sixteen standard baud 
rates. The price of this unit is only *119.95 in Quantities c 
one. Dealer prices are available. For further infornation 
write. 


Mark Longley 2403 De La Cruz Blvd. Santa Clarar Ca 95050 



USING 1)1 A BIO PRINTERS- from Herman Gchwedinger, 3 Millbrook Road, 

‘ ' ~ New Halt?., NY, 12561 

Herman sent in his experience with the Diablo model 1640 
and 1650 printers. The hook up is as follows* 

"The Diablo did require switching pins 2 and 3 , as Exidy’s in¬ 
structions indicated. However, the printer required the fol¬ 
lowing changes also. We pulled out pins 4, 5* 6 , and 7 from 
the male plug at the end of the Diablo*s cable, and prevented 
them from plugging into the Sorcerer’s serial port. Then, after 
pulling pins 6 and ? out of the plug, we shorted them bv simply 
tying a copper v/ire around both pins. We did not short 4.and 5 
but wrapped them individually in insulating tape. Folding the 
wirf?r> carefully into the plug, we reconnecectod the face plate 
adn thus there were no loose wires visible. 

•’That’s all there is too it. We do not know if this pro¬ 
cedure will work on Diablo 1620-Also, has anyone expanded 

their Jorcerer *rom 32K to 48K, using the 3-100 box? Finally, 
has anyone used the Sorcerer to sort and update bibliographic 
files?” 

If anyone can help out in these areas, write directly to the 

address above or to me. 


HARD COPY AND THE WOR D PROCESSOR - from Phil Wilkinson, 755 } *> 
™~ ——~ ~ Pedro Rd, San Rafael, CA, 94901 

’’Enclosed is a short driver program that works perfectly 
with my Word Processor pac. The latter supports user written 
drivers if one tells it where to look for them by putting the 
starting address into 7E7 (low byte) and ?EB (high byte). No 
extraneous characters at all with this one, There is a delay 
built into slow output down enough to suit my 15 char/sec ^elec¬ 
tric. The duration of the delay is easily varied.” 


0000* F 5 
0001* F5 
0002* FD ?E 3 D 
0005 * F 6 80 
0007* D3 FE 
0009* FD 77 45 
0000s FI 
GOOD* CD 12 E0 
0010* DB FD 
0012* CB 4? 
0014* 28 FA 

0016* 3E 25 
0018* 00 FF 
no) A 1 OD 
001.B* 20 FD 
001Dt 30 
001 E* 20 FQ 
0020* FI 
0021 * C9 ' 


PUSH AF 
PUSH AF 
LD A,(IY+ 3 N) 

OR 80 
OUT(FE),a 
LD (IY+45)»A 
POP AF 
CALL E01 2 
IN A,(FD) 

BIT 0,A 

JR2 FA (0010) 
LD A,25 
LD C, FF 
DEC C , 

JRNZ FD (001 A) 
DEC A 

JRNZ F 8 (0013) 

POP AF 

RET 


SAVE ACCUMULATOR, 

GET BAUD RATE 
ENABLE RS232 


RESTORE CHARACTER 
SEND TO RS232 

WAIT TILL UART 
DONE 

DELAY 

ROUTINE 


RESTORE CHARACTER 
RETURN 


FLAGS 


THE EXIDY SERIAL PORT 

First off, let me say that if you want to run a serial device 
off your Sorcerer, the easiest fix is more than likely to be 
buying the parallel to serial converter that Mark Longley is 
selling (see his ad in this issue). I have heard nothing but 
praise for it from friends. But if you're like me, you have 
other uses planned for that port, and would like to be 

able to use the serial port built in. Well, there is hope, my 
friend. Most of what follows is from Bryan Lewis (Putnam Valley, 
NY) . 

The problem with the serial port stems from the fact that 
it is cheaper to have one part do many things than to have many 
parts each doing their own thing. Thus thought Exidy when they 
decided to use the same Z-80 I/O port, #254, for the serial 
interface status and for the keyboard scan. In other words, 
you can tell the Sorcerer that you want the serial interface 
to be RS-232 instead of cassette, but as soon as the keyboard 
is scanned again, you're back into cassette mode. Bryan sent 
the following simple hardware modification that uses only a 
switch, two resistors, and an LED. The drawing refers to drawing 
7 in the Sorcerer Technical Manual. 



Now something for the circuit wizards out there. Bryan 
discovered that the only time we really want to be in cassette 
mode Is when we are using the cassettes themselves. Note that 
when we are using the cassettes, one of the two motor control 
lines changes status. In other words, it should be possible 
to control selection of RS~232/cassette based on the motor 
control lines. The following diagrams Bryan's modification* 


SOME LA3T MINUTE NOTES ... 

The Sorcerer's Apprentice is looking for someone to write 
a Development Pac Column along the veins of Jteven Curalnick’s 
Word Processing Corner, Anyone with ideas should send them in 
soon. 

The Sorcerer User’s Group is meeting on a monthly basis at 
Newman Computer Exchange here in Ann Arbor. For more info ond a 
map, contact me. 

As always, material is needed for printing. Whatever you're 
doing, send it t 
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A few days later I received a note from Bryan telling me to change 
the 2.2 K resistors to 4.7 K’s to improve reliability. A few days 
later stilt, I received word that he had given up on this "perfect 
fix' 1 . There seemed to be a loss of reliability under the following 
conditions: 1200 Baud, using automatic cassette motor control, 
trying to read a tape written under the same conditions. (Other 
people’s tapes read OK.) I hope that some hardware genius can 
pass along the information to correct this situation and make 
Bryan's fix really "perfect”. The track seems to be right, but 
the wheels aren't fitting quite right. 


sort (which, by the way, do need to be renumbered). 

Has anyone encountered the message 7M0 ERROR? The manuals 
make no mention of this particular error. How about REDO FROM 
START? I have never seen this displayed but It is in the BASIC 
microcode. If anyone has the answers to these questions or has 
other helpful information please write to The Sorcerer^ 
Apprentice as I am sure It would be greatly appreciated. 


4010: 21 60 F0 It 81 F0 01 7F 07 36 20 ED B0 C9 

Screen clearing program 


IOC : 

110 ? REM PRINI FORMAT C"PRINT USING*! 

12G 2 REM ADAPTED FRCP AN ARTICLE IN 'KILOBAUD* 

130 : REM BY ICM BASSETT — AUGUST 1979 

140 2 

150 PRINTCHRM12I SPRINTTABII7! ; "PRi M FCRPATT I KG CEM0NSTR AT ION** 

160 PRIM! INPUT "COLUMN NUMBER OF RIGHT MARGIN** |B 

17 0 PRIM JINPUT**TYPE THE NUMBER TO BE FORMATTED" JA 

180 X 1*A:G0SUB 30CCG 

190 PRIM 

2QC PRIM TAB<B-X3t;X» 

2lC GOTO 170 

22C : 

23C S 

240 * REM THE CODE BEGINNING WITH LINE 3000C IS THE FORMAT 

250 2 REM PORTION CF THE PROGRAM -- THE PRECEDING CODE IS 

26C ! REM FOR DEPCN5T RAT ION PURPCSES. TO USE THE PROGRAM, 

2TO 2 REM DELETE ALL LINES PRIOR TO LINE 3C0C0, AND THEN 

2B0 2 REM MERGE THE SUBRCUI INE WITH VCUR HOST PROGRAM AND 

290 2 RFM RENUMBER THE COMBINED PROGRAMS* SET XI EQUAL TC 

300 ? REM THE VARIABLE TC BE FORMATTED* CALL THE SUB- 

310 2 RFM ROUTINE, AND THEN PRIM TABIRIGHT MARGIN-X31 IX $ 

320 2 

33C 2 REM NEGATIVE NUMBERS ARE PRINTEC IN PARENS 112*501 

340 2 REM IN ACCCPDANCE PITH ACCCUMING PRACTICES. TO 

350 2 REM PRINT NEGATIVE NUMBERS WITH A TRAILING MINUS 

36C 2 REM SIGN, CHANGE LINE 30130 TC2 

37C 2 REM X$=X1+X$*"-" 

38C 2 

39C : REM TO ADD DOLLAR SIGNS TC FORMAT!ED NUMBERS* CHANGE 

400 2 REM LINE 301CC TO: 

4lC 2 REM X I*"$"+X1+XI 

42 C 2 REM ANO LINE 3013C TC 2 

430 : REM ***"! $"»Xl4XI«"! ** 

44 C 2 

450 2 REM PROGRAMS TO MERGE AND RENUMBER BASIC PRCGPAMS 

460 2 REM FOR THE SORCERER ARE AVAILABLE FROM: 

4 7 C 2 

480 2 REM THE SORCERER USERS GROUP 

490 2 REM RALPH G. RUH 

50C 2 RFM 623 PEOUl AVE. 

510 2 RFM LANCASTER* OH 4313C 

520 2 

53C 2 REM SUBROUTINE BEGINS HERE 
540 2 

30000 X4»SGMX11 2X1 * I NT (ABSIXl I ♦ 100 ♦ *5 >/IU0: X $*»" 

30010 X l$= STR$(XII 2 X2*LEN(X1SI-1sXl$*M|DMXI % ,2,X2I 
30020 FCF L-l TO X2 
30030 X2$*MfDHXi$ v L*l! 

30C40 X3*L » 

30050 IF X2$*".*» GOT C 30080 
30060 NEXT U 
30070 XI*".00" 

30C80 IF X3MX2-II THEN Xl*"0" 

30C9C IF X4M-1I THEN 3C130 
30100 X**Xlf+XS 
301IC X3*LENIX1> 

30120 RETURN 

30130 X**"I**Mt$*XM")** 

30140 X3*LEM X$l -1 
ici56 RErvAW 






VARI us ting 


50000 Cl PAP 1000 

60005 OFF FNA(X MPEFKIX M256*PEFM XH1 
50010 AO -4 69:E F ~q;FF ~0:v^Q:AV«0:SV=0 
50015 01=15:0?* 200 
50070 DIWVMD1 I. AV'-f (02l-tSVtC0I) 

50075 PRINTCMRSI 121 

5003 ) PRINT: PR INT:PRINTTAB! 751 i *»VAR ! ADLF$** : PRI NT 

50035 REM rv 

500A0 RFH RICHARD IFGAUIT 

50045 PRINTS PR INT" A - AIL PRUGRAN VAR l ABI ES": PP INT M S - SPFCIHT 

VARIABLE'>" 

50051 PRINT"D - DETAIL BY L I NE"SPR|NTTAD( 7C1;"SELECT 2 "MlNPUTV 

50055 IFVS“"D"THfNPRIM : PRY NT 2 PR I NT 5 GQT050075 
50060 IFVM"A"TMFNPRINT2PRIN T"WORKING «; SGC T050115 
50065 l F V M " $ ” T H E N 5 01 7 5 
50C70 GO TO 5004 5 

500 f 5 G05UB503308 I F V-0TMEN50 100 
50000 PPlNT*aiNF N ”; L NS •* s 

500 05 f 0»'MI TOVsPR INI VSII1" 5 : IEPOS< 01 >53ANDI<>VTHFNPR I NT 

50090 NEXT 

50095 PRINTjPRINT 

50100 IFfF^lTHEN50435 

50105 Grrr5oof5 

50110 PRINT:PRINT: PR!NT 

50H5 Gn5UB50330:CC*CC*i: IFCC/2*IN1 ICC f 2) THENPR IN f sGO 7(150125 

50170 PRI NTl MRS(1 ) ; 

50125 !rV=OANPEF”lTHFN50160 

50130 IFV=OTHEN50115 

50135 IFAV*0THFNAV*I SAVII U=Vil U 

50140 FHR I *|T OV:F F= 0:FOP J*IT UAV 

50145 IF AVSI JJsVK | | f HE NFF = l 

5015 0 NFXTJ2 IFrF*OTMFNAV*AVf is AYftlAVMVftf II 

50155 NEXT!tITlF*0THFN60115 

50160 PRINTCIfRil 121 :PPINTSPKINT W THERF APE «; AVJ "V ARI ABt ES IISFO : ** 

:PRINT - . 

c 0!65 PC'* Ml TOAVSPRINTAVMIU" "?2 f F POS 1 0 I 763THFNPR INT 

50170 NEXT20UT05C436 

50171 $V-1 

50100 PR!NTrj«RiU2l SPRINT SPRINT SPRINT««5FLECT UP T 0 ";D 15 " VARIADL 
E V; P R I NT 

50145 P PI NT **UM v ThE FIRST TWO CHARACTERS ARC BFCOGN IZEf) AS A NA 

50190 PR1NT-THE FIRST CHARACTER MOST BE AM AU’HA I A - / I 
50195 PPJNT«A'P<) THE ANO/UR <0 1 AS RFOUIRFO 

50200 PR INT:PPINTsPRI NT 

50701 PP!Nr H EXA«FLfcS s »; : PR I NT T A6 C 151 J " A SCALARS** 

>0710 PRINT! ABU 51 l "AID I ARR A Y S" 2PR I NTT A0 U 5 | • » A$ STRINGS’* 

50715 PR1NTT 3PU5I ;*»Ai(ol SIRING ARR A YS"2 PRINT SPRINT 
50723 p RIN T ** KEY RETUFN TWICE TO START S F ARC. H**S PR INT S PR INT 
50225 VM ,M, sr M = t :pR INT”INPUT VARI AULT"; SV; " ; s JNPUTVS: If VM"" 
THEN50265 * 

50230 A MLEF 11 ( VS * H : IF ASCI At I <650RVH ( AT MOOT E FN50205 

50236 CH»CMA| S.Al t» MIDS f Vft »-CM« I I 2 IFtM>LFNt VSITHFN5026C 

60241 If A1 M«f*»f>EN *•«$*» SGOTt 50735 

r 0241 I F 4 1 S* " I "TM : NA l»ft $* "( ARRAY I M JGOT 050260 

60750 I f L FN1 A A M ! T Hf NAS- A $+A 1 S 

5C755 GC Tf;502 3 5 

60760 SV SI SV MA 12 5V = SV* l:GOTO502?5 

50765 PPlNlfMR M 12 I: PR IN 1 S PR I NT” SI ARCH FOR 2 ” } : FUR M ITO 3 V 


50270 PR1NTSVII I ) ;»*• **; : 1F PQ SI 01 7 53ANOI <> 5 V 1HF NPR INT 

502 75 NEXT :PR INT : PRINT 

502 HC GUSUR513 30 :1r V = CANOEF »1THEN5 0310 - 
502B5 IF7-QT HFN 6 02 6C 

50290 PRINTLINE s CC*Os FOR M U UV s.'rnRJ* ITOSV 

50295 IFVflll = mi-4).THENLC*l : PR l NT VS ( II;** "J 
50300 NFXTJ, I 5 PR INT 2 I FCMOTHENPR INTCHR t( 231 { 

50305 I FgF-0THTN50200 

50310 IFCC*0THENPRINT SPC(301 

50315 I FV =0THM Pf- UT ”N( Nfc FOUND" 

60320 G0TU504 35 

50325 O-^FEK(TX I:TX=T X*l:RCTURN 
5C330 AMFNA( AOMLN»FNA( AD»2 ) 

50335 NN-rNA(Nl + ?»:lfNN=>50000THENCE = 1 

50340 FORT -1 TOD l :V$C1 l* M,, S NEXT; V-0:TX* AO+4 

50345 GHSUB50325:1rD-34TMEN50370 

50350 IFO=143THEN50430 

50355 If0>66AND0<91THEN50385 

50360 IF 0 r 0 T M F N 5 04 3 0 

50365 GDTU50345 

503 70 GCSUB5 032 5:1F 0-34 TMEN50345 
503 75 IF.D- 0THFN504 30 

5010 ) GLTP5-0 37 0 , . 

503 0*5 VMCUR 6(01 :G0SUB50 325 
50390 1FPFEM IX- M-U 0TMEN50345 

60395 IF( f)>4 7 A NO IK 5B I OF ( D>64 AN DO <91 I THCNV M VMCHR SI D I S GOSUB 50 325 
50 400 IF9=36TMCNVMVM"$":G0$UB5U325 
50405 I Fp- 40T E ENV S~ V T ♦*' ( ARR A Y I ** 

5041 c FF-0:r UP Ml TtV s IF V=OT HEN50420 

60415 IF VS = V M 1 I THENTF-- 1 

50420 NEXT I: t F rr *0TFFKV»V + 1 s V ft f V MV * 

50425 :G JTC50345 

50430 A 0~NI!R F TURN 

50435 PRINT:PR INI !PR INT : END 
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